﻿Imports DalcoModelo

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        Dim herrRep As New HerramientasEnStockDal
        herrRep.nueva("Escalerilla", 10)
        Dim envioNuevo As New envioDAL
        Dim obraRep As New ObraDal
        obraRep.recuperar("Santa Silvina")
        envioNuevo.nuevoEnvio(obraRep.recuperar("Santa Silvina"),
                               herrRep.recuperar("Escalerilla"),
                              8, #12/5/2001#,
                              "observaciones")


    End Sub
End Class
